function WriteHelp(str)
global IntYPos;				% vector of inital position of the every text line - used for slider
global HDhelpAxes;
global HDvectorOfTexthd;
global xsize ysize adgeD;
global HDhelpSlider1 HDhelpSlider2;	%handle of the slider for help text 

if ~isempty(HDvectorOfTexthd)
	delete(HDvectorOfTexthd); 
   HDvectorOfTexthd=[];
end;

Fsize=8;
xpos=5;
ypos=ysize-10;
HD=[];
HDtext=[];
IntYPos=[];

set(HDhelpSlider1,'Value',1);
set(HDhelpSlider2,'Value',0);

j=1;
for i=1:length(str)
   if str(i)=='|'
      labelPos=[xpos ypos];
		HDtext = text('Parent', HDhelpAxes, ...
   		'Units','pixels', ...
   		'Position',labelPos, ...
   		'Horiz','left', ...
   		'String',str(j:i-1), ...
         'Interruptible','off', ...
         'Clipping','On',...
         'FontSize',Fsize,...
         'Color',[0 0 0]);
      HD=[HD HDtext];
      j=i+1;
      IntYPos=[IntYPos ypos];
      ypos=ypos-15;
   end
   if str(i)=='~'
      ypos=ypos-5;
      j=i+1;
   end;
   
 end;
 labelPos=[xpos ypos];
		HDtext = text('Parent', HDhelpAxes, ...
   		'Units','pixels', ...
   		'Position',labelPos, ...
   		'Horiz','left', ...
   		'String',str(j:i), ...
         'Interruptible','off', ...
         'Clipping','On',...         
         'FontSize',Fsize,...
         'Color',[0 0 0]);
 HD=[HD HDtext];
 HDvectorOfTexthd=HD;
 IntYPos=[IntYPos ypos];
 col=[1 1 1];
 
 
 set(HDhelpAxes,'Units', 'pixels','Position',[adgeD*2+xsize adgeD xsize ysize],...
   					'Units', 'normal',...
                  'XLim',[0 1],...
                  'YLim',[0 1],...
                  'Color',col,...
                  'XColor',col,...
               	'YColor',col,...
                  'GridLineStyle','none',...
                  'XTickMode','manual','XTick',[],...
                  'YTickMode','manual','YTick',[],...
                  'Units', 'pixels');

return